﻿Public Class frmTasks

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim frm As New frmNewTask()
        If (frm.ShowDialog() = Windows.Forms.DialogResult.OK) Then

        End If
    End Sub

    Private Sub DisplayListView()
        Dim listTodo() As Todo
        Dim _todo As New Todo
        listTodo = _todo.getData()
        Dim i As Integer = 0

        For i = 0 To listTodo.Length - 1
            'Usually the first unique colum is the root item
            Dim lv As New ListViewItem()
            'The remaining columns are su
            lv.SubItems.Add(listTodo(i).Task) ' id
            lv.SubItems.Add(listTodo(i).Task) ' task
            lv.SubItems.Add(listTodo(i).Task) ' due date
            lv.SubItems.Add(listTodo(i).Note) ' prty
            lv.SubItems.Add(listTodo(i).Note) ' priy
            lv.SubItems.Add(listTodo(i).Note) ' noteYN
            lv.SubItems.Add(listTodo(i).Note) ' categories
            lv.SubItems.Add(listTodo(i).Note) ' exec date
            ListTask.Items.Add(lv)
        Next
    End Sub


    Private Sub frmTasks_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        'DisplayListView()
    End Sub
End Class